home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egascr2.arc / EGAITAL.SCR < prev    next >
Encoding:
Text File  |  1986-08-05  |  921 b   |  52 lines
  1. N EGAITAL.COM
  2. A 100
  3. CLD    
  4. MOV    BH,02    ; Get 8x14 font    
  5. MOV    AX,1130
  6. INT    10    ; Returns ES:BP
  7. PUSH    ES
  8. POP    DS
  9. MOV    SI,BP    ; DS:SI points to font
  10. PUSH    CS
  11. POP    ES
  12. MOV    DI,0159 ; ES:DI = destination 
  13. MOV    BX,0100 ; Number of characters
  14. MOV    CL,03    ; MAINLOOP:
  15. CALL    0147    ; Call SHIFTRIGHT
  16. CALL    0147    ; Call SHIFTRIGHT
  17. CALL    0147    ; Call SHIFTRIGHT
  18. CALL    0150    ; Call SHIFTLEFT
  19. CALL    0150    ; Call SHIFTLEFT
  20. CALL    0150    ; Call SHIFTLEFT
  21. CALL    0150    ; Call SHIFTLEFT
  22. DEC    BX    ; Decrement char count
  23. JNZ    0114    ; Loop if not zero
  24. MOV    BP,0159    ; Point to font
  25. SUB    DX,DX    ; Starting character
  26. MOV    CX,0100    ; Character count
  27. MOV    BH,0E    ; Bytes per character
  28. CS:    
  29. MOV    BL,[005D]
  30. AND    BL,03    ; Block to load
  31. MOV    AX,1100    ; Load font
  32. INT    10
  33. INT    20    ; Terminate
  34. LODSW        ; SHIFTRIGHT:
  35. SHR    AL,CL
  36. SHR    AH,CL
  37. STOSW        ;   and store
  38. DEC    CL
  39. RET    
  40. LODSW        ; SHIFTLEFT:
  41. SHL    AL,CL
  42. SHL    AH,CL
  43. STOSW        ;   and store
  44. INC    CL
  45. RET    
  46.  
  47. R CX
  48. 59
  49. W
  50. Q
  51.  
  52.